home *** CD-ROM | disk | FTP | other *** search
/ Xenosoft 2 / Xenosoft 2 (Game collection)(1994).iso / bioforge / script / chaos.scp < prev    next >
Text File  |  1994-12-08  |  4KB  |  207 lines
  1. // ***CHAOS LEVEL***
  2. // MONITOR SCRIPTS ARE IN CHAOSMON.SCR
  3. // GUARD ROOM SCRIPTS ARE IN CHAOSGRD.SCR
  4. // CELL BLOCK SCRIPTS ARE IN CHAOSBLK.SCR
  5. // CRYO ROOM SCRIPTS ARE IN CHAOSCRY.SCR
  6. // HALLWAY AND ELEVATOR SCRIPTS ARE IN CHAOSHAL.SCR
  7.  
  8. {   CHAOS_LOAD
  9.  
  10.     ^à╝            = $é┐         
  11.  
  12.     // IF THE ALIEN CITY HAS BEEN SEEN AND
  13.     // HALMECHO IS STILL ALIVE KILL IT.  -BKA-
  14.     I  ^çô              AND ^å╜             THEN
  15.         {
  16.         I  @Ç¢               HALMECHO THEN
  17.             {
  18.             K   
  19.             ^å╜             = $Ç╗   
  20.             }
  21.         E   
  22.             Q       "Can't find HalMecho!"    // DON'T TRANSLATE!
  23.         }
  24.  
  25.     // IF LEX IS WEARING THE REFLECT SUIT MAKE SURE THE BATTERY CONTINUES
  26.     // TO BE DRAINED.    -BKA-
  27.     @Ç¢               PLAYER
  28.     I ( @Ç⌐      (LEXMIR) ) THEN
  29.         {
  30.         ^ä╝                    = @Çì      REFLECTBATTDRAIN
  31.         }
  32.  
  33.     // RESTART BIOREPAIR IF IT IS STILL ACTIVE
  34.     I  ^ïâ        = 1 THEN
  35.         ^Ä₧  = @Çì      BIOREPAIR
  36.  
  37.     // RESET TONFA GUN -BKA
  38.     ^ïÆ             = 0
  39.     ^ïò         = 0
  40.  
  41.     // START UP ALL THE CONSTANTLY RUNNING BACKGROUND PROCESSES
  42.     // THE PROCESSES THEMSELVES ARE RESPONSIBLE FOR TURNING ON/OFF THEIR
  43.     //    ART AND FOR DEFINING THE CAMERAS THAT THEY CAN BE SEEN FROM
  44.     @Ç¥   SETCELLONEBARS ^à«      
  45.     @Çì      CELLTWOBARS
  46.     @Ç¥   SETCELLTHREEBARS ^à░      
  47.     @Ç¥   SETCELLFOURBARS ^à▒      
  48.  
  49.     @Çì      CELL3_MON
  50.  
  51.     @Çì      FLICKER_LIGHT
  52.     @Çì      BLOCK_DRIP
  53.     @Çì      ANIMGUARD
  54.     @Çì      ANIMCRYO
  55.     @Çì      LEVEL1TREMORS
  56.     @Çì      ESCHERS_PLEES_FOR_HELP
  57.  
  58.     // IF THE CRYO FLUID WAS LEFT ON, THEN RESTART ITS ANIMATION
  59.     I  ^àû        = 1 THEN
  60.         ^Çâ              = @Çì      POUR_LOOP
  61.  
  62.     // THIS 'IF' DECIDES WHICH OF THE CELL 2 CAMERAS SHOULD WORK
  63.     I  ^è╖                == 0 THEN
  64.     {
  65.         ƒ                  CE21 ON
  66.         ƒ                  CE22 ON
  67.         ƒ                  CE23 OFF
  68.         ƒ                  CE24 OFF
  69.     }
  70.     E   
  71.     {
  72.         ƒ                  CE21 OFF
  73.         ƒ                  CE22 OFF
  74.         ƒ                  CE23 ON
  75.         ƒ                  CE24 ON
  76.     }
  77.  
  78.  
  79.     // TURN ON CAMERAS IN CHAOS HALLWAY TO SHOW HALMECHO
  80.     I  (@Ç¢               (HALMECHO)) THEN
  81.         {
  82.         Y                 HAL1, HAL2, HAL3, HAL4, HAL5, HAL6, ELH1, ELH2
  83.         }
  84.     //DON'T TRANSLATE
  85.     E    
  86.         I  ^å╜             = 1 THEN
  87.             Q      ("Can't find HalMecho")
  88.  
  89.     @Çì      READY_CAYNAN            // SET-UP CAYNAN
  90.     @Çì      READY_GUARD1            // SET-UP GUARD1
  91.  
  92.     // MAKE SURE USE_BOT BEGINS IN DEACTIVATED POSITION/STATE IF !ACTIVATED
  93.     // IF THE USEBOT IS IN AUTOMATIC MODE
  94.     I  @Ç¢              (USE_BOT) THEN
  95.         {
  96.         A  OFF
  97.         r          CURFIG OFF
  98.         Z       CURFIG OFF
  99.         u          CURFIG ON
  100.         è          ON
  101.  
  102.         ï           PLAYER
  103.  
  104.         // IS NECESSARY? SETAI NURSEBOT -KLD
  105.  
  106.         I  ^åí           != 4 THEN
  107.             G  UBOTLOC
  108.  
  109.         // NOW MAKE THIS NURSEBOT FLOAT NO HIGHER THAN THE
  110.         // WAYPOINT 'USEALTI' JUST IN CASE YOU LAND HIM ON A DESK
  111.         // OR SOMETHING. -KLD
  112.         ª             USEALTI MAXIMUM
  113.  
  114.         // IF THE USEBOT IS IN AUTOMATIC MODE
  115.         I  ^è╗                = 0 THEN
  116.             {
  117.             £    0
  118.             q          DEACTIVATED 0
  119.             o         
  120.             }
  121.  
  122.         ¥                 AVDBAR1 110
  123.         ¥                 AVDBAR2 110
  124.         ¥                 AVDBAR3 110
  125.         ¥                 AVDBAR4 110
  126.         ¥                 WAY_PT2 180
  127.         ¥                 GETMEAT 80
  128.         }
  129.     E    Q       "Can't find Use_BOT!"  //DON'T TRANSLATE
  130. }
  131.  
  132. { ENTERCELL2
  133.  
  134.     // FIX THE CAMERA FOR THE DURATION OF THE BATTLE
  135.  
  136.     @Ç¢              (PLAYER)
  137.     // AI IS ALREADY OFF
  138.     Z       CURFIG OFF
  139.     u          CURFIG OFF
  140.  
  141.     I  ^è╖                == 0 THEN
  142.         C      CE22
  143.     E   
  144.         C      CE24
  145.  
  146.     £    TANKCMB
  147.  
  148.     â      
  149.  
  150.     M      MANTLE_9
  151.  
  152.     M      STAND CONTINUE
  153.  
  154.     u          CURFIG ON
  155.  
  156.     G  CELL2WAY WALK
  157.  
  158.     // DON'T TURN GRAVITY ON TILL NOW SO WE DON'T FALL THROUGH! -BES
  159.     Z       CURFIG ON
  160.  
  161.     I ( ^ï│         = $Ç╝   ) THEN
  162.         @Çì      ACTIVATE_GUARD1
  163.     E   
  164.         {
  165.         A  ON
  166.         C      UNLOCK
  167.         }
  168. }
  169.  
  170. { FM_TNKS
  171.     @Ç¢               PLAYER
  172.     A  OFF
  173.     Z       CURFIG OFF
  174. //        SUSPENDWHILE @FADE(DOWN)
  175.     @Çì      CELL2TOTANK
  176. }
  177.  
  178.  
  179. { LEGALTODROPHERE
  180.  
  181.     P        ~ÇÇ    
  182.  
  183.     ~ÇÇ     = 1
  184.  
  185.     I ( @Çí         ( CURFIG NASTY1 ) ) THEN
  186.         ~ÇÇ     = 0
  187.  
  188.     I ( @Çí         ( CURFIG NASTY2 ) ) THEN
  189.         ~ÇÇ     = 0
  190.  
  191.     é      ~ÇÇ    
  192. }
  193.  
  194.  
  195. { LEX_PUT_DOWN_LTHAND
  196.     I ( @Ç¥   LEGALTODROPHERE ) THEN
  197.         M      PUT_DOWN_LTHAND
  198. }
  199.  
  200. { LEX_PUT_DOWN_RTHAND
  201.     I ( @Ç¥   LEGALTODROPHERE ) THEN
  202.         M      PUT_DOWN_RTHAND
  203. }
  204.  
  205.  
  206. //$ 26 - version number
  207.